home *** CD-ROM | disk | FTP | other *** search
- object TableDlg: TTableDlg
- Left = 73
- Top = 50
- BorderStyle = bsDialog
- Caption = 'Table Designer'
- ClientHeight = 366
- ClientWidth = 498
- Font.Color = clBlack
- Font.Height = -10
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- PixelsPerInch = 96
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- TextHeight = 13
- object ScrollBox1: TScrollBox
- Left = 0
- Top = 0
- Width = 498
- Height = 366
- Align = alClient
- BorderStyle = bsNone
- TabOrder = 0
- object Label1: TLabel
- Left = 24
- Top = 18
- Width = 32
- Height = 13
- Alignment = taRightJustify
- Caption = 'Rows'
- end
- object Label2: TLabel
- Left = 115
- Top = 18
- Width = 48
- Height = 13
- Alignment = taRightJustify
- Caption = 'Columns'
- end
- object Label3: TLabel
- Left = 15
- Top = 56
- Width = 44
- Height = 13
- Alignment = taRightJustify
- Caption = 'Caption'
- end
- object Label4: TLabel
- Left = 12
- Top = 81
- Width = 46
- Height = 13
- Alignment = taRightJustify
- Caption = 'Position'
- end
- object Label5: TLabel
- Left = 12
- Top = 110
- Width = 251
- Height = 13
- Caption = 'Right-click on table headings to specify text'
- end
- object Label7: TLabel
- Left = 198
- Top = 78
- Width = 72
- Height = 13
- Alignment = taRightJustify
- Caption = 'Cell Spacing'
- end
- object Label6: TLabel
- Left = 198
- Top = 56
- Width = 72
- Height = 13
- Alignment = taRightJustify
- Caption = 'Cell Padding'
- end
- object RowSpinEdit: TSpinEdit
- Left = 63
- Top = 15
- Width = 44
- Height = 22
- EditorEnabled = False
- MaxValue = 500
- MinValue = 1
- TabOrder = 0
- Value = 1
- OnChange = RowSpinEditChange
- end
- object ColSpinEdit: TSpinEdit
- Left = 169
- Top = 15
- Width = 44
- Height = 22
- EditorEnabled = False
- MaxValue = 10
- MinValue = 1
- TabOrder = 1
- Value = 1
- OnChange = ColSpinEditChange
- end
- object OkBtn: TBitBtn
- Left = 139
- Top = 325
- Width = 72
- Height = 27
- TabOrder = 2
- OnClick = OkBtnClick
- Kind = bkOK
- end
- object BitBtn2: TBitBtn
- Left = 298
- Top = 325
- Width = 73
- Height = 27
- TabOrder = 3
- Kind = bkCancel
- end
- object TableCaptionEdit: TEdit
- Left = 63
- Top = 53
- Width = 126
- Height = 19
- TabOrder = 4
- end
- object CaptionAlignCombo: TComboBox
- Left = 62
- Top = 77
- Width = 103
- Height = 20
- ItemHeight = 13
- Items.Strings = (
- 'top'
- 'bottom'
- '')
- TabOrder = 5
- end
- object ColHeadingsCheck: TCheckBox
- Left = 274
- Top = 10
- Width = 124
- Height = 14
- Caption = 'Column Headings'
- TabOrder = 6
- OnClick = ColHeadingsCheckClick
- end
- object RowHeadingsCheck: TCheckBox
- Left = 274
- Top = 28
- Width = 115
- Height = 13
- Caption = 'Row Headings'
- TabOrder = 7
- OnClick = RowHeadingsCheckClick
- end
- object PreviewBtn: TBitBtn
- Left = 219
- Top = 325
- Width = 72
- Height = 27
- Caption = 'Source'
- TabOrder = 8
- OnClick = PreviewBtnClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555550555
- 555555555555F55555555505555B0555570555F55557F55555F55B50555B0555
- 7B55575F5557F555575555B5055B5557B5555575F55755557555555B5550005B
- 55555557555FFF575555555555BBB0055555555555777FF5555555555BBBBB00
- 55555555577777FF55555000BBBBBBB050005FFF7777777F5FFFBBB5BBBBBBB0
- BBB577757777777F77755555BBBBBBB55555555577777775555555555BBBBB55
- 55555555577777555555555705BBB55505555555F5777555F555557B5555055B
- 505555575555F5575F5557B5555B0555B50555755557F55575F55B55555B0555
- 5B5557555557F55557555555555B5555555555555557555555550000}
- NumGlyphs = 2
- end
- object BorderCheckBox: TCheckBox
- Left = 334
- Top = 54
- Width = 101
- Height = 17
- Caption = 'Border Width'
- State = cbChecked
- TabOrder = 9
- end
- object CellPaddingEdit: TEdit
- Left = 276
- Top = 52
- Width = 45
- Height = 20
- TabOrder = 10
- end
- object CellSpacingEdit: TEdit
- Left = 276
- Top = 76
- Width = 45
- Height = 20
- TabOrder = 11
- end
- object BorderWidthEdit: TEdit
- Left = 438
- Top = 52
- Width = 47
- Height = 20
- TabOrder = 12
- end
- object Table1: TStringGrid
- Left = 12
- Top = 126
- Width = 473
- Height = 187
- Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goRowSizing, goColSizing, goRowMoving, goColMoving, goEditing, goTabs]
- TabOrder = 13
- OnDrawCell = Table1DrawCell
- OnMouseUp = Table1MouseUp
- end
- object BitBtn1: TBitBtn
- Left = 378
- Top = 325
- Width = 77
- Height = 27
- TabOrder = 14
- OnClick = BitBtn1Click
- Kind = bkHelp
- end
- end
- end
-